home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Abacus diskdrives IO.adf / CH4 / program6.bas < prev    next >
BASIC Source File  |  1978-06-28  |  1KB  |  79 lines
  1. 'Program 6:
  2. 'MiniBase V1.0
  3.  
  4. REM ON ERROR GOTO Problem
  5. SCREEN 1,320,200,4,1
  6. WINDOW 1,"Mini Base V1.0",,0,1
  7.  
  8. DIM Entry(12)
  9. PALETTE 0,0,0,0
  10.  
  11. PALETTE 1,0,0,0
  12. PALETTE 2,1,1,1
  13. COLOR 2,0
  14.  
  15. INPUT "Data is (D)Data  Statements or (I)Input ";a$
  16. IF UCASE$(a$)="Q" THEN Ende
  17. IF UCASE$(a$)="D" THEN
  18.   FOR i=1 TO 12
  19.   READ Entry(i)
  20.   NEXT i
  21.   GOTO BarChart
  22. END IF
  23.  
  24. DataEntry:
  25. CLS
  26. PRINT "Input :"
  27. PRINT 
  28. FOR i=1 TO 12
  29. RepeatEntry:
  30. PRINT "Value Nr.";i;
  31. INPUT Entry(i)
  32. IF Entry(i)=-1 THEN Ende
  33. IF Entry(i)<0 OR Entry(i)>20 THEN PRINT "False input; repeat...":GOTO RepeatEntry
  34.  
  35.  
  36. NEXT i
  37.  
  38. BarChart:
  39. CLS
  40. FOR i=1 TO 12
  41. COLOR 1,3+i
  42. FOR r=1 TO Entry(i)
  43. LOCATE 23-r,i*3:PRINT "  "
  44. NEXT r
  45. COLOR 2,0:LOCATE 23-r-1,i*3-1:PRINT Entry(i)
  46. NEXT i
  47.  
  48. a$=""
  49. LOCATE 23,9:INPUT "(S)ave or (N)ew ";a$
  50. IF UCASE$(a$)="Q" THEN Ende
  51. IF UCASE$(a$)="S" THEN
  52.   REM LOCATE 23,9:PRINT SPACE$(16);
  53.   LOCATE 23,9:INPUT "Filename         ";file$
  54.   OPEN file$ FOR OUTPUT AS #1
  55.   PRINT #1,"EnteredData:";CHR$(13)
  56.   FOR i=1 TO 12
  57.   PRINT #1,"DATA ";Entry(i);CHR$(13)
  58.   NEXT i
  59.   CLOSE #1
  60. END IF
  61.  
  62. GOTO DataEntry
  63.  
  64. Problem:
  65. IF ERR=4 THEN
  66.   CLS
  67.   PRINT "No Data available !!!  [Key]"
  68.   WHILE INKEY$="":WEND
  69.   ON ERROR GOTO ERROR
  70.   RESUME DataEntry
  71. END IF
  72. END
  73.  
  74. Ende:
  75. WINDOW CLOSE 1
  76. SCREEN CLOSE 1
  77. END
  78.  
  79.